home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / kernel / behavior.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-04-16  |  4.5 KB  |  219 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 13 "behavior.d"
  17. #include "kernels.h" 
  18.  
  19. #define    CLASS    Behavior_c
  20. #define    ivType    Behavior_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    Behavior_c;
  25.  
  26. #include "behavior.iv"
  27.  
  28.  
  29.  
  30. #line 64 "behavior.d"
  31. imeth char * Behavior_im_gName(object self)
  32. { Behavior_iv_t *iv = GetIVs(Behavior, self);
  33.     return iv->name; 
  34. } 
  35.  
  36. imeth objrtn Behavior_im_gDontCollect(object self)
  37. { Behavior_iv_t *iv = GetIVs(Behavior, self);
  38.     iv->ncg = 1; 
  39.     return self; 
  40. } 
  41.  
  42. imeth int Behavior_im_gTrace(object self, int mode)
  43. { Behavior_iv_t *iv = GetIVs(Behavior, self);
  44.     int pmode = iv->trace; 
  45.     iv->trace = mode; 
  46.     return pmode; 
  47. } 
  48.  
  49. imeth objrtn Behavior_im_gMarkingMethod(object self, ofun mf)
  50. { Behavior_iv_t *iv = GetIVs(Behavior, self);
  51.     iv->markfun = mf; 
  52.     return self; 
  53. } 
  54.  
  55. imeth void Behavior_im_gDoesNotImplement(object self, object gen)
  56. { Behavior_iv_t *iv = GetIVs(Behavior, self);
  57.     char buf[100]; 
  58.  
  59.     ChkArgTyp(gen, 2, GenericFunction); 
  60.     if (IsaClass(self)) 
  61.         sprintf(buf, "\nInstance of class %s doesn't respond to generic %s\n", 
  62.         iv->name, gName(gen)); 
  63.     else 
  64.         sprintf(buf, "\nClass %s doesn't respond to generic %s\n", 
  65.         iv->name, gName(gen)); 
  66.     gError(Dynace, buf); 
  67. } 
  68.  
  69. imeth int Behavior_im_gIsKindOf(object self, object cls2)
  70. { Behavior_iv_t *iv = GetIVs(Behavior, self);
  71.     int i; 
  72.  
  73.  
  74.  
  75.     if (self == cls2) 
  76.         return 1; 
  77.  
  78.  
  79.  
  80.     for (i=0 ; i < iv->n_direct_superclasses ; ++i) 
  81.         if (gIsKindOf(iv->direct_superclasses[i], cls2)) 
  82.         return 1; 
  83.     return 0; 
  84. } 
  85.  
  86. #ifndef NOCLASSLIB 
  87.  
  88. imeth objrtn Behavior_im_gStringRep(object self)
  89. { Behavior_iv_t *iv = GetIVs(Behavior, self);
  90.     object s, t; 
  91.  
  92.     t = gStringRepValue(self); 
  93.     s = vBuild(String, "Class  ", iv->name, "  [ ", t, " ]\n", NULL); 
  94.     gDispose(t); 
  95.     return s; 
  96. } 
  97.  
  98. imeth objrtn Behavior_im_gStringRepValue(object self)
  99. { 
  100.     return vSprintf(String, "<%8.8lx>", self); 
  101. } 
  102.  
  103. imeth objrtn Behavior_im_gSuperClasses(object self)
  104. { Behavior_iv_t *iv = GetIVs(Behavior, self);
  105.     int i; 
  106.     object lst; 
  107.  
  108.     lst = gNew(LinkObject); 
  109.  
  110.     for (i=0 ; i < iv->n_direct_superclasses ; ++i) 
  111.         gAddFirst(lst, iv->direct_superclasses[i]); 
  112.     return lst; 
  113. } 
  114.  
  115. imeth objrtn Behavior_im_gSubClasses(object self)
  116. { Behavior_iv_t *iv = GetIVs(Behavior, self);
  117.     object_list *sc; 
  118.     object lst; 
  119.  
  120.     lst = gNew(LinkObject); 
  121.  
  122.     for (sc=iv->direct_subclasses ; sc ; sc=sc->next) 
  123.         gAddFirst(lst, sc->obj); 
  124.     return lst; 
  125. } 
  126.  
  127. #endif 
  128.  
  129. imeth objrtn Behavior_im_gCopy(object self)
  130. { 
  131.     return gShouldNotImplement(self, "gCopy/gDeepCopy"); 
  132. } 
  133.  
  134. objrtn Behavior_initialize(void) 
  135. { 
  136.     static int done = 0; 
  137.  
  138.  
  139.  
  140.  
  141.     if (done) 
  142.         return Behavior_c; 
  143.  
  144.     done = 1; 
  145.  
  146.  
  147.  
  148.     iMethodFor(Behavior, gName, Behavior_im_gName); 
  149.     iMethodFor(Behavior, gDontCollect, Behavior_im_gDontCollect); 
  150.     iMethodFor(Behavior, gTrace, Behavior_im_gTrace); 
  151.     iMethodFor(Behavior, gMarkingMethod, Behavior_im_gMarkingMethod); 
  152.     iMethodFor(Behavior, gDoesNotImplement, Behavior_im_gDoesNotImplement); 
  153.     iMethodFor(Behavior, gIsKindOf, Behavior_im_gIsKindOf); 
  154.     iMethodFor(Behavior, gCopy, Behavior_im_gCopy); 
  155.     iMethodFor(Behavior, gDeepCopy, Behavior_im_gCopy); 
  156.  
  157. #ifndef NOCLASSLIB 
  158.     iMethodFor(Behavior, gStringRep, Behavior_im_gStringRep); 
  159.     iMethodFor(Behavior, gStringRepValue, Behavior_im_gStringRepValue); 
  160.     iMethodFor(Behavior, gSuperClasses, Behavior_im_gSuperClasses); 
  161.     iMethodFor(Behavior, gSubClasses, Behavior_im_gSubClasses); 
  162. #endif 
  163.     return Behavior_c; 
  164. } 
  165.  
  166. #if 0 
  167.  
  168. imeth objrtn Behavior_im_gNew(object self)
  169.  
  170. #line 201 "behavior.d"
  171. {} 
  172.  
  173.  
  174. #line 202 "behavior.d"
  175. ivmeth objrtn Behavior_ivm_vNew(object self, va_list _rest_)
  176.  
  177. #line 202 "behavior.d"
  178. {} 
  179.  
  180. #line 181 "behavior.c"
  181.  
  182. static    objrtn    Behavior_ifm_vNew(object self, ...)
  183. {
  184.     va_list    _rest_;
  185.     va_start(_rest_, self);
  186.     return Behavior_ivm_vNew(self, _rest_);
  187. }
  188.  
  189.  
  190.  
  191. #line 203 "behavior.d"
  192. imeth objrtn Behavior_im_gStackAlloc(object self, void *p)
  193.  
  194. #line 203 "behavior.d"
  195. {} 
  196.  
  197.  
  198. #line 204 "behavior.d"
  199. imeth ofun Behavior_im_gFindMethod(object self, object generic, int lev)
  200.  
  201. #line 204 "behavior.d"
  202. {} 
  203.  
  204.  
  205. #line 205 "behavior.d"
  206. imeth objrtn Behavior_im_gFindMethodObject(object self, object generic, int lev)
  207.  
  208. #line 205 "behavior.d"
  209. {} 
  210.  
  211.  
  212. #line 206 "behavior.d"
  213. imeth int Behavior_im_gInstanceSize(object self)
  214.  
  215. #line 206 "behavior.d"
  216. {} 
  217.  
  218. #endif 
  219.